Concatenating list from a function to another recursive function in OCaml